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BEGIN | 
: | 
APRS SEOSESELISIS IEEE TTT TET TT TTT PTC C CPPCC Cece ccc cc ccc ec cece ccc ic cacti iia | 
' 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . | 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
!® ONLY IN ACCORDANCE WITH THE TERMS OF 

:* INC ON OF THE E 0 E NY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
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® 
s 
® 
® 
® 
ie TRANSFERRED. * 
cae 
® 
* 
® 
® 
® 
*® 
® 
® 
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E USED AND COPIED 
SUCH LICENSE AND WITH THE 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
? seeokat ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT: 


This routine selects a suitable volume for the creation of a file 
or the continuation of a file on some other volume. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Nov-1978 16:59 
MODIFIED BY: 


V04-001 ACG0464 Andrew C. Goldstein, ay 48-44 17:22 
Rework to function in a cluster and process based environment 


v03-002 ACG0407 Andrew C. Goldstein, 19-Mar-1984 14:53 
Dispose of GETACC routine 
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; FACILITY: F11ACP Structure Level 2 
| 
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Add placement control support 


1 

L_NORM Linkage and BIND. COMMON macro. 

i B0104 ACG008 Andrew C. Goldstein, | 8-Nov-1979 22:25 
Skip cel write locked volumes 

i B0103 AcGo0o71 Andrew C. Goldstein, 12-Oct-1979 10:58 
Range check placement RVN in volume selection 

i B0102 ACG0039 Andrew C. Goldstein, 16-May-1979 13:02 
Do correct error exit on contig allocation failure 

B0101 aACG0008 Andrew C. Goldstein, 26-Dec-1978 18:32 
i 

i 


LIBRARY see eee JORARY #4 18,052"; 
REQUIRE ‘SRC$:FCPDEF.B32'; 


Be Be Se Se Se Se Se Se Ss Be Se Se Se Se Fe Ses Ge Ge Se Be Ge BSH Se Se Se SH Se Ge Se SH Se SHS Se Se Se Se Oe Se Se Se SESH Se Se Se Se Ss Oe Se Se Se ee eae 


a , 1-sep-19 4 93:08:82 VAX-11 Bliss-32 V4 iat 


P Page 
1e-8ep-1984 DISKSVMSMASTER:CF1iX-SRCJSELVOL.B32;3° 9" (2). 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
context switched to new volume, blocks may be allocated 


‘ GLOBAL ROUTINE SELECT_VOLUME (FIB, BLOCKS_NEEDED) : L_NORM NOVALUE = 
ee 
ii | 
% } FUNCTIONAL DESCRIPTION: 
| 74 i This routine scans the RVT for the volume with the most free space, 
75 : or, if a contiguous allocation is asked fcr, the volume with the 
678 most free space and sufficient contiguous space. 
7 i 
075 ' CALLING SEQUENCE: 
oay SELECT_VOLUME (ARG1, ARG2) 
Obs i INPUT PARAMETERS: 
08 ! ARG1: address of user FIB 
Bae } ARG2: number of blocks to be allocated 
086 i IMPLICIT INPUTS: 
087 ! LOC_RVN: plecenent RVN or 0 
one } CURRENT_VCB: VCB of current volume 
090 i OUTPUT PARAMETERS: 
091 ' NONE 
044 ! 
09 ' IMPLICIT OUTPUTS: 
Bee CURRENT_UCB, CURRENT _VCB, CURRENT_RVN: set to volume switched to 
096 1 | 
i] 
i 
i 
i 
i 
i 


UNREC_COUNT, UNREC_BCOCKS: count and LBN of blocks preallocated, if any | 
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1 MAP 

: FIB : REF BBLOCK; ! user FIB arg 

1 LOCAL 

1 STATUS ! error status to return 

J BEST_SiZE, ' Largest volume of current scan 
1 BEST_RVN, ' RVN of above volume 
1 TRIED_IT : BITVECTOR (2561, ! vector of volumes tried so far 

1 RVT : REF BBLOCK, ' address of relative volume table 

1 UCB : REF BBLOCK, : UCB under consideration 
' vcB REF BBLOCK; ! VCB under consideration | 
: BIND_ COMMON; | 
1 EXTERNAL ROUTINE 
1 ALLOCATION LOCK : L_NORM, ' acguire volume lock 

' SWITCH _VOLOME =: L-NORM, ' switch context to new volume 


ALLOC_BLOCKS : LINORM; ! allocate blocks from storage map 
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' the most free space, f a contiguous request made, §5Y to do the allocation 
! on each volume until it succeeds. The first pass (J = 
! process RVN placement, if given. 


) is used to 


LOCATION_LOCK (): 
T = .CURRENT vCBtVCBSL_RVT); 
-RVT EQL .CORRENT_UCB”THEN RETURN; ! noop if not‘a volume set 


-LOC_RVN orny -RVTCRVT$SB_NVOLS) ! discard garbage RVN's 
THEN LOC_RVN = 0; 


CHSFILL (0, 256/8, TRIED_IT); 
pack J FROM (.LOC_RVN EQL 0) TO .RVTCRVT$B_NVOLSJ 


AL 
RV 
IF 
IF 


BEGIN 
BEST_SIZE = 0; 
BEST_RVN = 0; 


The inner loop scans the RVT for the volume (mounted) with the most free 
which we haven't tried yet. We take out the allocation lock on each 
volume before looking at it (by calling SWITCH_VOLUME) to get an up to 
date copy of the volume's free space. 
| 
| 


0 THEN .LOC_RVN 


INCR K FROM (CIF .J EQL ELSE 1) 
TO (IF .J EQL O THEN .LOC_RVN ELSE .RVTCRVTSB_NVOLS]) 


BEGIN 
UCB = .VECTOR CRVTCRVTSL_UCBLSTJ, .K-1); 
ae aes NEQ 0 


BEGIN 
VCB = .UCBCUCBSL_VCB); 
SWITCH VOLIIME (.R); 

IF .VCB \ BSL FREE GTRU .BEST_SIZE 
AND NOT -TRIED-ITC.KI 

Ai 


E = ,VCBCVCBSL_FREEI; 


! Having picked a volume, check it for usefulness. A size of zero means the 
} whole volume set is full. If we are crying for contiguous space, check if 
' 


! there is at least that much space and try the allocation. 
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' We oom the ypiunes of the yetuse set in reverse size order. If a non- 
contiguous allocation is be ap Snes we stapty return with the volume with 
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4 IF_.FIBCFIBS$V_ALCON] | 
4 THEN .BEST_SIZE LSSU .BLOCKS_NEEDED 
é ELSE -BEST“SIZE EQL 0 | 
: THEN 
| BEGIN 
4 IF .J NEQ 0 
4 THEN EXITLOOP; 
‘ END 
3 ELSE | 
4 BEGIN | 
4 SWITCH VOLUME (.BEST_RVN); 
4 Wane CAV = .BEST_RVA; 
IF .BLOCKS_NEEDED NEQ 0 | 
THEN ALLOC “BLOCKS (.FIB, .BLOCKS_NEEDED, UNREC_LBN, UNREC_COUNT) | 
) | 
i THEN RETURN; 
END; | 
LOC_RVN = 0; ! discard placement after first try | 
LOC_LBN = 0; 
END; ! end of outer retry Loop 
! We exit or fall out of the loop if we have tried all volumes in the set | 
that seemed worth trying, and couldn't get anything. 
ERR_EXIT (SS$_DEVICEFULL); 
1 END; ! end of routine SELECT_VOLUME 
-TITLE SELVOL 
-IDENT \V04-001\ 
.EXTRN ALLOCATION LOCK 
-EXTRN SWITCH _VOLOME, ALLOC_BLOCKS 
.PSECT SCODE$,NOWRT,2 
OBFC 00000 ENTRY SELECT VOLUME, Save R2,R3,R4,R5,R6,R7,R8,- ; 1068 | 
SE 24 2 0000 suBL2 #36, SP : | 
58 1¢ AA 9E 0000 MOVAB c¢2(BASE), R11 : 1117 
00006 CF 00 F8 00009 CALLS #0, ALLOCATION_LOCK : 1134 | 
0 98 AA DO 00008 MOVL 104 (BASE), RO >; 1135 | 
6 20 AO DO 0001 MOVL 32450), RV : 
94 AA 56 D1 0016 CMPL  kVT, ~{08(BASE) : 1136) 
01 12 OOO1A BNEQ =«'1$ ; 
04 Ooi¢ RET ; 
0B AG 08 99 ED 1D 1$: CMPZV #0, #8, 11(RVT), (R11) ; 1138 | 
E 000 BGEQU 2 ; 
68 pA 00 CLRL. = (R11) : 1139 | 
00 bE 00 2C 00027 2%: MOVCS #0, (SP), #0, #32, TRIED_IT 3 1141 | 
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DISKSVMSMASTER:CF11X.SRCISELVOL.632; 539 
CHMU #2128 
; Routine Size: 218 bytes. Routine Base: S$CODE$ + 0000 


RET 


ss 
on == 


3 $ 1215 1 
; 1618 1 END 
g 8 1217 0 ELUDOM 
3 PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 218 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
F Library Statistics 
Bera ee Bie, Pe RT eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBIL1B8.L32;1 18619 24 0 1000 00:01.9 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SELVOL/OBJ=OBJ$:SELVOL MSRC$:SELVOL/UPDATE=(ENHS$:SELVOL) 
Size: 218 code + 0 data bytes 
Run Time :18. 
Elapsed. Tine: 00:35.6 
Lines/CPU Min: 403 


Lexemes/CPU-Min: 4746 
7 Used: 223 pages 
Compilation Complete 
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